home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
comm
/
irc
/
GetMODinfo.lha
/
MODinfo.REXX
< prev
Wrap
OS/2 REXX Batch file
|
1999-02-16
|
2KB
|
75 lines
/* AmIRC MODinfo AREXX script by CoBaLt60 */
/* Cosmetic changes and docs by Firebird^ */
/* Get some info from DelitrackerII or HippoPlayer */
/* This script goes in your SYS:REXX directory. */
parse arg moreinfo /* ANY argument given will make the script output more info */
options results
if show('Ports','HIPPOPLAYER') then do
/* get info from Hippoplayer */
address 'HIPPOPLAYER'
get name; modname = result
get type; modtype = result
get size; modsize = result
get comm; comment = result
get curr; current = result
get cfil; filenum = result
get nfil; numoffiles = result
get cspo; pos = result
get mspo; maxpos = result
get dura; duration = result
get fnam; fullname = result
get cnam; filename = result
if moreinfo='' then
say '"'modname'" (Type: 'modtype" Size: "modsize" Time: "duration%60"m "duration-60*(duration%60)"s)" comment
else do
say "Mod #"current" ("filenum"/"numoffiles") "modname" ("modtype" Size: "modsize " Time: "duration%60"m"duration-60*(duration%60)"s) Pos: "pos"/"maxpos
if filename == fullname then
say fullname
else
say fullname filename
say comment
end
end
if show('Ports','DELITRACKER') then do
/* get info from Delitracker */
address 'DELITRACKER'
status g lst; modlist = result
status g vol; volume = result
status g rmo; randmod = result
status g gui; guiopen = result
status g ply; playing = result
status g led; filter = result
status m dir; moddir = result
status m fil; filename = result
status m fmt; format = result
status m nam; modname = result
status m max; nummods = result
status m num; modnum = result
if moreinfo='' then
say ""modname" ("format")"
else do
say; say "Mod #"modnum"/"nummods" "modname" ("format")";
address command 'list 'moddir''filename' lformat "%p%n %l %d"'
address command 'list 'moddir''filename' lformat "%c"';say
say "random:"randmod " GUI open:"guiopen " playing:"playing " filter:"filter " volume:"volume;
say "program is" modlist; say
end
end